5.5 Fehler 

Auch wenn das vorhergehende Kapitel sich ausführlich mit dem Abfangen von Fehlern beschäftigt hat, auch wenn per Programmierung viele mögliche Fehlerquellen abgefangen wurden, alle Fehlerquellen können niemals eingeplant werden. Man könnte noch überprüfen, ob die Excel-Datei, in welche die Daten geschrieben werden, noch offen ist, und wenn ja, ob sie gespeichert ist. Aber was passiert, wenn die Datei auf einem Server liegt und beim Ablauf des Programms die Serververbindung gekappt wird? Oder wenn der Benutzer seine Daten vor der Mittagspause eingibt, die Datei aber nach der Mittagspause, wenn er das Hineinschreiben bestätigt, nicht mehr existiert? Vergessen Sie nicht, die möglichen Fehler abzufangen. Beispielsweise so:

...
Dim objDateiLeser As StreamReader
Try
   strExcelDateiName = objDateiLeser.ReadToEnd
   objDateiLeser.Close()
Catch ex As EndOfStreamException
   MessageBox.Show(ex.Message)
   strExcelDateiName = "C:\Dummy"
Catch ex As FileNotFoundException
   MessageBox.Show(ex.Message)
   Exit Sub
Finally
   objDateiLeser = Nothing
End Try
...

Oder beim Excel-Zugriff:

Try
...
   xlApp = New Excel.Application()
   xlApp.Visible = False
   xlMappe = xlApp.Workbooks.Open(strExcelDateiName)
   xlBlatt = xlMappe.Worksheets(1)
...
Catch ex As IOException
   MessageBox.Show(ex.Message)
Catch ex As FileNotFoundException
   MessageBox.Show(ex.Message)
   Exit Sub
Finally
   xlZelle = Nothing
   xlBlatt = Nothing
   xlMappe = Nothing
   xlApp = Nothing
End Try
...